Public Class CVendor
    Private _intVendorID As Integer
    Private _strSeqVendorID As String
    Private _objPersonID As New CPerson
    Private _strVendorCat As String
    Private _strVendorName As String
    Private _strVendorCode As String
    Private _strRegisteredName As String
    Private _strFDANUM As String
    Private _strLSTNUM As String
    Private _strCSTNUM As String
    Private _strPANNUM As String
    Private _dblCreditAmount As Double
    Private _dblDebitAmount As Double
    Private _strPayMode As String
    Private _strVisitDays As String
    Private _intDeliveryTime As Integer
    Private _strCreditPeriod As String
    Private _chrRating As Char
    Private _strRemark As String
    Private _chrStatus As Char
    Private _strItems As String         '...28/08/2007

    Public Property VendorID() As Integer
        Get
            Return _intVendorID
        End Get
        Set(ByVal value As Integer)
            _intVendorID = value
        End Set
    End Property
    Public Property SeqVendorID() As String
        Get
            Return _strSeqVendorID
        End Get
        Set(ByVal value As String)
            _strSeqVendorID = value
        End Set
    End Property
    Public Property PersonID() As CPerson
        Get
            Return _objPersonID
        End Get
        Set(ByVal value As CPerson)
            _objPersonID = value
        End Set
    End Property
    Public Property VendorCat() As String
        Get
            Return _strVendorCat
        End Get
        Set(ByVal value As String)
            _strVendorCat = value
        End Set
    End Property

    Public Property VendorName() As String
        Get
            Return _strVendorName
        End Get
        Set(ByVal value As String)
            _strVendorName = value
        End Set
    End Property
    Public Property VendorCode() As String
        Get
            Return _strVendorCode
        End Get
        Set(ByVal value As String)
            _strVendorCode = value
        End Set
    End Property
    Public Property RegisteredName() As String
        Get
            Return _strRegisteredName
        End Get
        Set(ByVal value As String)
            _strRegisteredName = value
        End Set
    End Property

    Public Property FDANUM() As String
        Get
            Return _strFDANUM
        End Get
        Set(ByVal value As String)
            _strFDANUM = value
        End Set
    End Property

    Public Property LSTNUM() As String
        Get
            Return _strLSTNUM
        End Get
        Set(ByVal value As String)
            _strLSTNUM = value
        End Set
    End Property

    Public Property CSTNUM() As String
        Get
            Return _strCSTNUM
        End Get
        Set(ByVal value As String)
            _strCSTNUM = value
        End Set
    End Property
    Public Property PANNUM() As String
        Get
            Return _strPANNUM
        End Get
        Set(ByVal value As String)
            _strPANNUM = value
        End Set
    End Property
    Public Property CreditAmount() As Double
        Get
            Return Format(_dblCreditAmount, "##,##0.00")
        End Get
        Set(ByVal value As Double)
            _dblCreditAmount = value
        End Set
    End Property

    Public Property DebitAmount() As Double
        Get
            Return Format(_dblDebitAmount, "##,##0.00")
        End Get
        Set(ByVal value As Double)
            _dblDebitAmount = value
        End Set
    End Property

    Public Property PayMode() As String
        Get
            Return _strPayMode
        End Get
        Set(ByVal value As String)
            _strPayMode = value
        End Set
    End Property

    Public Property VisitDays() As String
        Get
            Return _strVisitDays
        End Get
        Set(ByVal value As String)
            _strVisitDays = value
        End Set
    End Property
    'for Supplied Items           ...28/08/2007
    Public Property Items() As String
        Get
            Return _strItems
        End Get
        Set(ByVal value As String)
            _strItems = value
        End Set
    End Property
    Public Property DeliveryTime() As Integer
        Get
            Return _intDeliveryTime
        End Get
        Set(ByVal value As Integer)
            _intDeliveryTime = value
        End Set
    End Property
    Public Property CreditPeriod() As String
        Get
            Return _strCreditPeriod
        End Get
        Set(ByVal value As String)
            _strCreditPeriod = value
        End Set
    End Property
    Public Property Rating() As Char
        Get
            Return _chrRating
        End Get
        Set(ByVal value As Char)
            _chrRating = value
        End Set
    End Property
    Public Property Remark() As String
        Get
            Return _strRemark
        End Get
        Set(ByVal value As String)
            _strRemark = value
        End Set
    End Property
    Public Property Status() As Char
        Get
            Return _chrStatus
        End Get
        Set(ByVal value As Char)
            _chrStatus = value
        End Set
    End Property
End Class
